sHelp
                                     WL.PROC.GROUP
       2
   proc.group
     zcus.date
       zcus.procedures
     proc.group.price.table

 Ì       2
proc.group    (main) 
[mnemonic]
\Z.CUS.WPG[wpg]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 mnemonic                    10 FREE     L                 wpg                                                         
 active                       1 YN       L                 \Z.CUS.WPG[wpg]|0                                           
 do.not.use.2                 0 FREE     L                 \Z.CUS.WPG[wpg]|2                                           
 do.not.use.3                 0 FREE     L                 \Z.CUS.WPG[wpg]|3                                           
 last.update                 50 FREE     L                 \Z.CUS.WPG[wpg]UPD                                          
 name                        30 FREE     L                 \Z.CUS.WPG[wpg]|1                                           
 Ì        2
zcus.date    (zcus.dates) 
[mnemonic, zcus.date]
\Z.CUS.WPG[wpg]ZCUSDT[dt]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 zcus.date                    8 DATE     L                 dt                                                          
 zcus.date.gpfh               1 YN       L                 \Z.CUS.WPG[wpg]ZCUSDT[dt]|0                                 
 zcus.date.severity          10 FREE     L  WL.PROC.SEVER  \Z.CUS.WPG[wpg]ZCUSDT[dt]|1                             
 Ì        2
zcus.procedures    (zcus.procedures) 
[mnemonic,zcus.date, zcus.procedure]
\Z.CUS.WPG[wpg]ZCUSDT[dt]ZCUSPR[drc]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 zcus.procedure               5 FREE     L  ABS.PROC       drc                                                     
 Ì        2
proc.group.price.table    (zcus.uk.price.table) 
[mnemonic, zcus.uk.eff.dt]
\Z.CUS.WPG[wpg]ZCUS.PT[ptD]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 zcus.uk.eff.dt               8 DATE     L                 ptD                                                         
 zcus.uk.ecr.daycase         10 SMONEY   R                 \Z.CUS.WPG[wpg]ZCUS.PT[ptD]|2                               
 zcus.uk.ecr.elect           10 SMONEY   R                 \Z.CUS.WPG[wpg]ZCUS.PT[ptD]|0                               
 zcus.uk.ecr.nonelec         10 SMONEY   R                 \Z.CUS.WPG[wpg]ZCUS.PT[ptD]|1                               
 zcus.uk.ecr.outpt           10 SMONEY   R                 \Z.CUS.WPG[wpg]ZCUS.PT[ptD]|3                               
 zcus.uk.necr.daycase        10 SMONEY   R                 \Z.CUS.WPG[wpg]ZCUS.PT[ptD]|6                               
 zcus.uk.necr.elect          10 SMONEY   R                 \Z.CUS.WPG[wpg]ZCUS.PT[ptD]|4                               
 zcus.uk.necr.nonelec        10 SMONEY   R                 \Z.CUS.WPG[wpg]ZCUS.PT[ptD]|5                               
 zcus.uk.necr.outpt          10 SMONEY   R                 \Z.CUS.WPG[wpg]ZCUS.PT[ptD]|7